home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / OLDTRANS.SAB < prev    next >
Text File  |  1991-09-13  |  2KB  |  39 lines
  1. enter oldtrans for 1 row
  2. set v cod to ""
  3. set v lnam to l.name in oldtrans where add.code exists
  4. set v cod to add.code in oldtrans where add.code exists
  5.   if cod = "exit"  or cod = "" then ; goto ex ; endif
  6. set v rentpd to rent.pd in oldtrans whe add.code exi
  7. set v pastpd to past.pd in oldtrans whe add.code exi
  8. set v waterpd to wat.paid in oldtrans whe add.code exi
  9. set v otherpd to other.pd in oldtrans whe add.code exi
  10. set v secpd to sec.pd in oldtrans whe add.code exi
  11. set v waterch to water.ch in oldtrans whe add.code exi
  12. set v otherch to other.ch in oldtrans whe add.code exi
  13. set v lastamt to tot.pd in oldtrans whe add.code exi
  14. set mes on
  15. cha last.amt to .lastamt in old.mast whe add.code = .cod and l.name = .lnam
  16. set mes off
  17. cha date to .#date in oldtrans whe add.code exists
  18. cha activity to .#date in old.mast whe add.code = .cod and l.name = .lnam
  19. cha bal.rent to (bal.rent - .rentpd) in old.mast whe add.code = .cod +
  20.  and l.name = .lnam
  21. cha past.due to (past.due - .pastpd) in old.mast whe add.code = .cod +
  22.  and l.name = .lnam
  23. cha bal.wate to (bal.wate - .waterpd) in old.mast whe add.code = .cod +
  24.  and l.name = .lnam
  25. cha bal.othe to (bal.othe - .otherpd) in old.mast whe add.code = .cod +
  26.  and l.name = .lnam
  27. cha sec.dep to (sec.dep + .secpd) in old.mast whe add.code = .cod +
  28.  and l.name = .lnam
  29. cha bal.othe to (bal.othe + .otherch) in old.mast whe add.code = .cod +
  30.  and l.name = .lnam
  31. cha bal.wate to (bal.wate + .waterch) in old.mast whe add.code = .cod +
  32.  and l.name = .lnam
  33. app oldtrans to transact whe add.code exi
  34. label ex
  35. del row fro oldtrans whe add.code exi
  36. return
  37.  
  38.  
  39.